home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / WWW / Charon / Install_Charon < prev    next >
Encoding:
Text File  |  2000-01-01  |  3.4 KB  |  164 lines
  1. ; Charon install script 1.4 (31.7.2000)
  2. ;
  3. ; ©2000 Andrija Antonijevic
  4. ;
  5.  
  6. (set #exec (/ (getversion) 65536))
  7. (if (< #exec 39)
  8.     (abort "Charon needs at least OS3.0 to work.\n")
  9. )
  10.  
  11. (if (not (exists "MUI:Libs/MUI/NList.mcc"))
  12.     (abort "You don't seem to have NList MUI custom class installed.\n"
  13.             "This class in necessary for Charon to work. You can "
  14.             "get this class from Aminet "
  15.             "(currently dev/mui/MCC_NList0_89.lha)"
  16.     )
  17. )
  18.  
  19. (complete 0)
  20.  
  21. (set #source-dir
  22.     (if (= 1 (exists @icon))
  23.         (pathonly (expandpath @icon))
  24.     ;else
  25.         (expandpath @icon)
  26.     )
  27. )
  28.  
  29. (set @default-dest
  30.     (askdir
  31.         (prompt "Select the directory where you want to "
  32.                 "install Charon. A directory named Charon WILL "
  33.                 "be created and all files will be copied there."
  34.         )
  35.         (help @askdir-help)
  36.         (default @default-dest)
  37.     )
  38. )
  39.  
  40. (set @default-dest (tackon @default-dest "Charon"))
  41.  
  42. (set #ToolbarType
  43.     (askchoice
  44.         (prompt "What kind of screen will you be using Charon on?")
  45.         (help "Charon uses images for its toolbar. In order to make "
  46.               "images look as good as possible, there are three "
  47.               "versions of them for different screen resolutions."
  48.         )
  49.         (choices "2:1 (640x256 and similar)" "1:1 (640x512)" "1:1 higher resolutions (800x600 etc)")
  50.     )
  51. )
  52.  
  53. (if (= #ToolbarType 0) (set #ImageDir (tackon #source-dir "Images")))
  54. (if (= #ToolbarType 1) (set #ImageDir (tackon #source-dir "Images_640x512")))
  55. (if (= #ToolbarType 2) (set #ImageDir (tackon #source-dir "Images_800x600")))
  56.  
  57. (if (not (exists @default-dest))
  58.     (makedir @default-dest (infos))
  59. )
  60.  
  61. (complete 20)
  62.  
  63. (makedir (tackon @default-dest "Backup"))
  64. (makedir (tackon @default-dest "Config"))
  65. (makedir (tackon @default-dest "Images"))
  66. (makedir (tackon @default-dest "Libs"))
  67.  
  68. (copyfiles
  69.     (source (tackon #source-dir "Doc"))
  70.     (dest (tackon @default-dest "Doc"))
  71.     (infos)
  72.     (all)
  73. )
  74.  
  75. (complete 30)
  76.  
  77. (copyfiles
  78.     (source (tackon #source-dir "Libs/Charon_AmiSSL.library"))
  79.     (dest (tackon @default-dest "Libs"))
  80. )
  81.  
  82. (copyfiles
  83.     (source (tackon #source-dir "Libs/Charon_classes.library"))
  84.     (dest (tackon @default-dest "Libs"))
  85. )
  86.  
  87. (copyfiles
  88.     (source (tackon #source-dir "Libs/Charon_FTP.library"))
  89.     (dest (tackon @default-dest "Libs"))
  90. )
  91.  
  92. (copyfiles
  93.     (source (tackon #source-dir "Libs/Charon_HTTP.library"))
  94.     (dest (tackon @default-dest "Libs"))
  95. )
  96.  
  97. (if (not (exists (tackon @default-dest "Libs/Charon_key.library")))
  98.     (copyfiles
  99.         (source (tackon #source-dir "Libs/Charon_key.library"))
  100.         (dest (tackon @default-dest "Libs"))
  101.     )
  102. )
  103.  
  104. (copyfiles
  105.     (source (tackon #source-dir "Libs/Charon_MiamiSSL.library"))
  106.     (dest (tackon @default-dest "Libs"))
  107. )
  108.  
  109. (copyfiles
  110.     (source (tackon #source-dir "Libs/Charon_search.library"))
  111.     (dest (tackon @default-dest "Libs"))
  112. )
  113.  
  114. (copyfiles
  115.     (source (tackon #source-dir "Libs/Charon_utility.library"))
  116.     (dest (tackon @default-dest "Libs"))
  117. )
  118.  
  119. (complete 50)
  120.  
  121. (copyfiles
  122.     (source (tackon #source-dir "Rexx"))
  123.     (dest (tackon @default-dest "Rexx"))
  124.     (all)
  125. )
  126.  
  127. (complete 60)
  128.  
  129. (copyfiles
  130.     (source (tackon #source-dir "Charon"))
  131.     (dest @default-dest)
  132. )
  133.  
  134. (if (= #ToolbarType 0)
  135.     (copyfiles
  136.         (source (tackon #source-dir "Charon.info"))
  137.         (dest @default-dest)
  138.     )
  139. ;else
  140.     (
  141.         (copyfiles
  142.             (source (tackon #source-dir "CharonProp_info"))
  143.             (dest @default-dest)
  144.             (newname "Charon.info")
  145.         )
  146.         (copyfiles
  147.             (source (tackon #source-dir "Images/About"))
  148.             (dest (tackon @default-dest "Images"))
  149.         )
  150.     )
  151. )
  152.  
  153. (complete 80)
  154.  
  155. (copyfiles
  156.     (source #ImageDir)
  157.     (dest (tackon @default-dest "Images"))
  158.     (all)
  159. )
  160.  
  161. (complete 100)
  162.  
  163. (exit "Installation finished successfully. Enjoy using Charon!")
  164.